home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2K User Places.xpl < prev    next >
Text File  |  2002-03-26  |  3KB  |  91 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Open/Save Dialog"
  5. "NAME"="User Places"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Add..."
  9. "TEXT 2"="Delete..."
  10. "DESCRIPTION 1"="Office 2000 has an "Places Bar" on the left side of its Open/Save dialog."
  11. "DESCRIPTION 2"="You can also add you own folders to this bar. To do this, click on 'Add...', type in a name for the folder (eg 'My Documents'), click OK, type in the folder's path (eg 'C:\My Documents') and then click OK."
  12. "DESCRIPTION 3"="To remove a folder from the list, click on 'Delete...'."
  13. "DESCRIPTION 4"="NOTE: You may not be able to fit many folders onto the bar unless you activate the 'Use Small Icons' option inside the Places Bar; to do so just right-click on the places bar inside Office and select "Small Icons" from the appearing menu.
  14. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Registry settings taken from PC Plus (UK) issue #186 (February 2002) page 166."
  18.  
  19. sPath="HKCU\Software\Microsoft\Office\9.0\Common\Open Find\Places\UserDefinedPlaces\"
  20. sPCheck="HKCU\Software\Microsoft\Office\9.0\"
  21.  
  22. Sub Plugin_Initialize 
  23.  if RegPathExists(sPCheck) then
  24.   Call RefreshDisplay()
  25.  else
  26.   Call Disable()
  27.  end if
  28. End Sub
  29.  
  30. Sub RefreshDisplay
  31.  For r=1 to 10
  32.   Call SetUIElement(r,"")
  33.  Next
  34.  iCount=RegEnumPaths(sPath) 
  35.  For p=1 to iCount
  36.   s=RegEnumElement(p)
  37.   t=RegReadValue(sPath & s & "\Name")
  38.   u=RegReadValue(sPath & s & "\Path")
  39.   Call SetUIElement(p,t & " - " & u)
  40.  Next
  41. End Sub
  42.  
  43. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  OkayValue=0
  45.  if ElementIndex=1 then
  46.   For q=1 to 11
  47.    s=RegReadValue(sPath & "Place" & q & "\Name")
  48.    if IsEmpty(s)=true AND OkayValue=0 then
  49.     OkayValue=q
  50.    end if
  51.   Next
  52.   if OkayValue<>0 AND OkayValue<11 then
  53.    t=InputWindow("1. Enter the name of the folder (eg My Documents): ","",1)
  54.    if IsEmpty(t)=false then
  55.     u=InputWindow("2. Enter the folder path (eg C:\My Documents)","",1)
  56.     if IsEmpty(t)=false then
  57.      Call RegWriteValue(sPath & "Place" & OkayValue & "\Name",t,1)
  58.      Call RegWriteValue(sPath & "Place" & OkayValue & "\Path",u,1)
  59.      Call RegWriteValue(sPath & "Place" & OkayValue & "\SortAscending",1,2)
  60.      PlaceValue=OkayValue-1
  61.      Call RegWriteValue(sPath & "Place" & OkayValue & "\Index",PlaceValue,2)
  62.      Call RefreshDisplay()
  63.     end if
  64.    end if
  65.   end if
  66.   if OkayValue>10 then
  67.    Call MsgError("You can only have 10 entries!")
  68.   end if
  69.  end if
  70.  
  71.  if ElementIndex=2 then
  72.   if ElementSubIndex<0 then
  73.    Call MsgError("Please select an item to delete first!")
  74.   else
  75.    iCount=RegEnumValues(sPath & "Place" & ElementSubIndex & "\")
  76.    For r=1 to iCount
  77.     s=RegEnumElement(r)
  78.     t=RegValueExists(sPath & "Place" & ElementSubIndex & "\" & s)
  79.     if t=true then
  80.      Call RegDeleteValue(sPath & "Place" & ElementSubIndex & "\" & s)
  81.     end if
  82.    Next
  83.    Call RegDeletePath(sPath & "Place" & ElementSubIndex & "\" & s)
  84.    Call SetUIElement(ElementSubIndex,"")
  85.   end if
  86.  end if
  87. End Sub
  88.  
  89. Sub Plugin_Terminate 
  90. End Sub
  91.